home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1999 July: Mac OS SDK / Dev.CD Jul 99 SDK1.toast / Development Kits / Mac OS / Interfaces&Libraries / Universal / Interfaces / AIncludes / AEPackObject.a < prev    next >
Encoding:
Text File  |  1998-08-17  |  1.7 KB  |  63 lines  |  [TEXT/MPS ]
  1. ;
  2. ;    File:        AEPackObject.a
  3. ;
  4. ;    Contains:    AppleEvents object packing Interfaces.
  5. ;
  6. ;    Version:    Technology:    System 7.5
  7. ;                Release:    Universal Interfaces 3.2
  8. ;
  9. ;    Copyright:    © 1991-1998 by Apple Computer, Inc., all rights reserved
  10. ;
  11. ;    Bugs?:        For bug reports, consult the following page on
  12. ;                the World Wide Web:
  13. ;
  14. ;                    http://developer.apple.com/bugreporter/
  15. ;
  16. ;
  17.     IF &TYPE('__AEPACKOBJECT__') = 'UNDEFINED' THEN
  18. __AEPACKOBJECT__ SET 1
  19.  
  20.     IF &TYPE('__APPLEEVENTS__') = 'UNDEFINED' THEN
  21.     include 'AppleEvents.a'
  22.     ENDIF
  23.  
  24. ;  These are the object packing routines.  
  25. ;
  26. ; pascal OSErr CreateOffsetDescriptor(long theOffset, AEDesc *theDescriptor)
  27. ;
  28.     IF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  29.         IMPORT_CFM_FUNCTION CreateOffsetDescriptor
  30.     ENDIF
  31.  
  32. ;
  33. ; pascal OSErr CreateCompDescriptor(DescType comparisonOperator, AEDesc *operand1, AEDesc *operand2, Boolean disposeInputs, AEDesc *theDescriptor)
  34. ;
  35.     IF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  36.         IMPORT_CFM_FUNCTION CreateCompDescriptor
  37.     ENDIF
  38.  
  39. ;
  40. ; pascal OSErr CreateLogicalDescriptor(AEDescList *theLogicalTerms, DescType theLogicOperator, Boolean disposeInputs, AEDesc *theDescriptor)
  41. ;
  42.     IF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  43.         IMPORT_CFM_FUNCTION CreateLogicalDescriptor
  44.     ENDIF
  45.  
  46.  
  47. ;
  48. ; pascal OSErr CreateObjSpecifier(DescType desiredClass, AEDesc *theContainer, DescType keyForm, AEDesc *keyData, Boolean disposeInputs, AEDesc *objSpecifier)
  49. ;
  50.     IF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  51.         IMPORT_CFM_FUNCTION CreateObjSpecifier
  52.     ENDIF
  53.  
  54. ;
  55. ; pascal OSErr CreateRangeDescriptor(AEDesc *rangeStart, AEDesc *rangeStop, Boolean disposeInputs, AEDesc *theDescriptor)
  56. ;
  57.     IF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  58.         IMPORT_CFM_FUNCTION CreateRangeDescriptor
  59.     ENDIF
  60.  
  61.     ENDIF ; __AEPACKOBJECT__ 
  62.  
  63.